1 DIMA%(2),B%(2),C%(3),R%(3),P%(5),N%(12,3,3):T%=22:V=36878:S1=36876:I=RND(-TI)
5 S%=4*(PEEK(36866)AND128)+64*(PEEK(36869)AND112):CS=37888+4*(PEEK(36866)AND128)
10 PRINT"[147]"TAB(74)"FASTADD":PRINTTAB(68)"1, 2, OR 3 DIGITS?":GOSUB400
15 GETA$:IFA$=""ORA$<"1"ORA$>"3"THEN15
20 L%=VAL(A$):Q%=9+L%*2
25 PB%=0:PR%=0:PA%=0
30 GOSUB100:W%=0:FORI=0TOG%:W%=W%+C%(I)*10^I:NEXT:GOSUB200:GOSUB300:FORI=1TO1000:NEXT
35 IFU%=W%THENPR%=PR%+1:GOTO55
40 POKE36879,8:PRINT"[147]"TAB(138);"W R O N G":PRINTTAB(49)"THE CORRECT"
45 PRINTTAB(50)"ANSWER IS":FORI=1TO2000:NEXT:GOSUB200
50 Y%=14:FORM=0TOG%:X%=Q%-M*4:Z%=C%(M):GOSUB500:NEXT:FORI=1TO1000:NEXT:XT%=30:GOTO65
55 POKEV,15:FORI=0TO5:POKES1,P%(I):FORJ=1TO50:NEXTJ:IFI=3THENFORJ=1TO75:NEXTJ
60 NEXTI:FORI=1TO50:NEXTI:POKEV,O
65 PB%=PB%+30-XT%:PA%=PA%+1:IFPA%<10THEN30
70 PR%=PR%*10:S$=STR$(PR%):X1%=3-LEN(S$)*2:PRINT"[147][144]":Y%=3:H%=0
75 FORM=2TOLEN(S$):X%=X1%+M*4:Z%=VAL(MID$(S$,M,1)):GOSUB500:NEXT:PB%=PB%*L%
80 X%=X%+4:Z%=12:GOSUB500
85 PRINTTAB(204)"TIMED SCORE":S$=STR$(PB%):X1%=5-LEN(S$)*2:Y%=12:H%=2
90 FORM=2TOLEN(S$):X%=X1%+M*4:Z%=VAL(MID$(S$,M,1)):GOSUB500:NEXT
92 PRINTTAB(182)"HIT ANY KEY"
94 GETA$:IFA$=""THEN94
96 GOTO25
100 FORI=0TO2:A%(I)=0:B%(I)=0:C%(I)=0:R%(I)=0:NEXT:R%(3)=0:C%(3)=0
110 FORI=0TOL%-1:A%(I)=INT(10*RND(1)):IFA%(I)<>0THENE%=I
120 B%(I)=INT(10*RND(1)):IFB%(I)<>0THENF%=I
130 W%=A%(I)+B%(I)+R%(I):IFW%<10THENC%(I)=W%:G%=I:NEXT:RETURN
140 C%(I)=W%-10:R%(I+1)=1:NEXT:C%(I)=1:G%=I:RETURN
200 POKE36879,24:PRINT"[147]":H%=0:Y%=2:FORM=0TOE%:X%=Q%-M*4:Z%=A%(M):GOSUB500:NEXT
210 POKE198,0:Y%=7:FORM=0TOF%:X%=Q%-M*4:Z%=B%(M):GOSUB500:NEXT
220 X%=Q%-(F%+1)*4:Z%=10:GOSUB500:POKEV,15:FORM=282-Q%TO269+Q%
230 POKES%+M,160:POKECS+M,H%:POKES1,M-30:NEXT:POKEV,0
240 H%=6:Y%=14:Z%=11:FORM=0TOG%:X%=Q%-M*4:GOSUB500:NEXT:RETURN
300 U%=0:H%=2:Y%=14:TI$="000000"
310 PRINT""TAB(220)TAB(220)"PROBLEM  TIME   RIGHT":PRINTTAB(2);PA%+1;TAB(17);PR%
320 FORM=0TOG%
330 XT%=TI/60:IFXT%>30THEN RETURN
340 POKES%+472,ASC(MID$(TI$,5,1))+128:POKECS+472,0
350 POKES%+473,ASC(MID$(TI$,6,1))+128:POKECS+473,0
360 GETA$:IFA$=""ORA$<"0"ORA$>"9"THEN330
370 X%=Q%-M*4:Z%=VAL(A$):GOSUB500:U%=U%+Z%*10^M:NEXT:RETURN
400 FORI=0TO12:FORJ=0TO3:FORK=0TO3:READN%(I,J,K):NEXTK,J,I
410 FORI=0TO5:READP%(I):NEXTI:RETURN
500 POKEV,15:FORI=0TO3:FORJ=0TO3:K=T%*Y%+X%+T%*J+I:POKES%+K,N%(Z%,J,I):POKECS+K,H%
510 POKES1,255-X%*J-Y%*I:NEXTJ,I:POKEV,0:POKES1,0:RETURN
1100 DATA108,226,226,123,225,32,32,97,225,32,32,97,32,226,226,32
1101 DATA32,108,97,32,32,126,97,32,32,32,97,32,32,226,226,126
1102 DATA108,226,226,123,32,32,98,126,108,226,32,32,124,226,226,126
1103 DATA108,226,226,123,32,108,98,126,108,32,32,97,32,226,226,32
1104 DATA32,32,254,32,32,255,225,32,124,226,251,126,32,32,124,32
1105 DATA225,226,226,126,124,226,127,32,108,32,108,126,32,226,126,32
1106 DATA32,255,226,32,225,98,98,32,225,32,32,97,32,226,226,32
1107 DATA225,226,226,97,32,32,255,32,32,255,32,32,32,126,32,32
1108 DATA108,226,226,123,124,98,98,126,225,32,32,97,32,226,226,32
1109 DATA108,226,226,123,124,98,98,97,32,32,108,126,32,226,126,32
1110 DATA32,32,123,32,32,98,252,123,32,32,97,32,32,32,32,32
1111 DATA160,160,160,97,160,160,160,97,160,160,160,97,160,160,160,97
1112 DATA108,123,32,123,124,126,255,32,32,255,108,123,124,32,124,126
1113 DATA215,225,231,235,231,235